unit WbNodeAutomationUnit;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  ComObj, ActiveX, WbNode_TLB, StdVcl, WbNodeFormUnit;

type
  TWbNodeClass = class(TAutoObject, IWbNodeClass)
  protected
    function Get_dd: IDispatch; safecall;
    procedure Set_dd(const Value: IDispatch); safecall;

  end;

implementation

uses ComServ;

function TWbNodeClass.Get_dd: IDispatch;
begin
Result := WbNodeForm.wb.DefaultDispatch;
WbNodeForm.InformAboutNewWindow2;
end;

procedure TWbNodeClass.Set_dd(const Value: IDispatch);
begin

end;

initialization
  TAutoObjectFactory.Create(ComServer, TWbNodeClass, Class_WbNodeClass,
    ciSingleInstance, tmApartment);
end.
